home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC World Interactive 7
/
PC World Interactive 7.iso
/
share
/
hobi
/
solarsys
/
Solar.exe
/
0
/
RCDATA
/
TFRMMONITOR
/
TFRMMONITOR.txt
Wrap
Text File
|
1997-11-30
|
6KB
|
225 lines
object frmMonitor: TfrmMonitor
Left = 379
Top = 197
Width = 370
Height = 330
BorderIcons = [biSystemMenu]
Caption = 'Solar System Monitor'
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
FormStyle = fsStayOnTop
Position = poDefault
OnCreate = FormCreate
OnDestroy = FormDestroy
OnResize = FormResize
OnShow = FormShow
PixelsPerInch = 120
TextHeight = 16
object StatusBar: TStatusBar
Left = 0
Top = 277
Width = 362
Height = 23
Panels = <>
SimplePanel = True
end
object Toolbar: TPanel
Left = 0
Top = 0
Width = 362
Height = 35
Hint = 'Toolbar'
Align = alTop
BevelOuter = bvNone
TabOrder = 1
object spdAdd: TSpeedButton
Left = 7
Top = 5
Width = 25
Height = 25
Hint = 'Add'
Glyph.Data = {
FE000000424DFE00000000000000760000002800000010000000110000000100
0400000000008800000084120000841200001000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
333333333300000000033333330FFFFFFF033333000000000F0333330FFFFFFF
0F0333330FFFFFFF0F0333330FFFFFFF0F0333330FFFFFFF0F0330330FFFFFFF
0F0333030F0FFFFF0003333000FFFFFF03333003300000000333333030333333
3333330303033333333330333330333333333333033333333333333333333333
3333}
ParentShowHint = False
ShowHint = True
OnClick = spdAddClick
end
object spdRemove: TSpeedButton
Left = 32
Top = 5
Width = 25
Height = 25
Hint = 'Remove'
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000074120000741200001000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
333333333300000000033333330FFFFFFF033333000000000F0333330FFFFFFF
0F0333330FFFFFFF0F0333330FFFFFFF0F0333330FFFFFFF0F0333330FFFFFFF
0F0333330FFFFFFF0003113311FFFFFF03333111100000000333331133333333
3333311113333333333311331133333333333333333333333333}
ParentShowHint = False
ShowHint = True
OnClick = spdRemoveClick
end
object spdClose: TSpeedButton
Left = 98
Top = 5
Width = 65
Height = 25
Hint = 'Close System Monitor'
Caption = '&Close'
ParentShowHint = False
ShowHint = True
OnClick = spdCloseClick
end
object Bevel1: TBevel
Left = 0
Top = 30
Width = 362
Height = 5
Align = alBottom
Shape = bsBottomLine
end
object spdReset: TSpeedButton
Left = 65
Top = 4
Width = 25
Height = 25
Hint = 'Reset All Monitors'
Glyph.Data = {
78010000424D7801000000000000760000002800000020000000100000000100
04000000000000000000120B0000120B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00500005000555
555557777F777555F55500000000555055557777777755F75555005500055055
555577F5777F57555555005550055555555577FF577F5FF55555500550050055
5555577FF77577FF555555005050110555555577F757777FF555555505099910
555555FF75777777FF555005550999910555577F5F77777775F5500505509990
3055577F75F77777575F55005055090B030555775755777575755555555550B0
B03055555F555757575755550555550B0B335555755555757555555555555550
BBB35555F55555575F555550555555550BBB55575555555575F5555555555555
50BB555555555555575F555555555555550B55555555555555750000}
NumGlyphs = 2
ParentShowHint = False
ShowHint = True
OnClick = spdResetClick
end
end
object PanelMonitor: TPanel
Left = 0
Top = 38
Width = 362
Height = 236
Align = alClient
BevelOuter = bvNone
TabOrder = 2
OnClick = PanelMonitorClick
end
object Panel1: TPanel
Left = 0
Top = 35
Width = 362
Height = 3
Align = alTop
BevelOuter = bvNone
TabOrder = 3
end
object Panel2: TPanel
Left = 0
Top = 274
Width = 362
Height = 3
Align = alBottom
BevelOuter = bvNone
TabOrder = 4
end
object PopupMenu1: TPopupMenu
OnPopup = PopupMenu1Popup
Left = 292
Top = 10
object popAdd: TMenuItem
Caption = '&Add...'
Hint = 'Add a new monitor'
ShortCut = 0
OnClick = PopMenuClick
end
object popRemove: TMenuItem
Caption = '&Remove'
Hint = 'Remove selected monitor'
ShortCut = 0
OnClick = PopMenuClick
end
object N1: TMenuItem
Caption = '-'
ShortCut = 0
end
object popReset: TMenuItem
Caption = 'R&eset'
Hint = 'Reset the monitor'
ShortCut = 0
OnClick = PopMenuClick
end
object popHist: TMenuItem
Caption = '&History Window...'
Hint = 'Display the history window'
ShortCut = 0
Visible = False
OnClick = PopMenuClick
end
object popColor: TMenuItem
Caption = '&Color...'
Hint = 'Change the monitor color'
ShortCut = 0
Visible = False
OnClick = PopMenuClick
end
object popUnits: TMenuItem
Caption = 'Show Current Value'
GroupIndex = 1
ShortCut = 0
OnClick = PopMenuClick
end
object N2: TMenuItem
Caption = '-'
GroupIndex = 1
ShortCut = 0
end
object popAnalog: TMenuItem
Caption = 'A&nalog'
GroupIndex = 1
Hint = 'Analog monitor'
RadioItem = True
ShortCut = 0
OnClick = PopMenuClick
end
object popBar: TMenuItem
Caption = '&Bar'
GroupIndex = 1
Hint = 'Bar monitor'
RadioItem = True
ShortCut = 0
OnClick = PopMenuClick
end
object popHisto: TMenuItem
Caption = 'H&istogram'
GroupIndex = 1
Hint = 'Histogram monitor'
RadioItem = True
ShortCut = 0
OnClick = PopMenuClick
end
end
end